ࡱ                >  	                                       {                  	   
         
                                                             !   "   #   $   %   &   '   (   )   *   +   ,   -   .   /   0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?   @   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _   `   a   b   c   d   e   f   g   h   i   j   k   l   m   n   o   p   q   r   s   t   u   v   w   x   y   z   |   }   ~         R o o t   E n t r y                                                   	           F            s          W o r d D o c u m e n t                                                                                          C o m p O b j                                                                                           r                                                                                                                              X(a,0,1))/(X(a,1,0)-X(a,0,0))
240 N(a)=X(a,0,1)-M(a)*X(a,0,0):RETURN

242 XV=(N(1)-N(0))/(M(0)-M(1)):YV=M(0)*XV+N(0):RETURN

244 aln$="RECTA  [ ":cl=120:RETURN

246 CLS:PRINT"  1> Ax+By+C=0  2>y=mx+n";:e$="3":GOTO104
248 SETF4:M=XV:N=YV:PRINTTAB(12)"Vertice";:GOSUB150:RETURN

250 FORa=0TO1:GOSUB284:NEXT:RETURN

252 GOSUB242:GOSUB248:IF prg=3 THEN 3000 ELSE 4150
254 FORa=0TO1:GOSUB286:GOSUB290:NEXT:RETURN

255 GOSUB134:GOSUB140:GOSUB142:IF f=h THEN A=X:B=Y:w=0:RETURN ELSE D=X:E=Y:GOSUB156:w=X:RETURN

256 Y=0:GOSUB192:PRINTTAB(16)"fuera acuerdo";:GOTO270
258 GOSUB230:LOCATE0,1:PRINT"Pk";STR$(b+1);:GOSUB233:c=1
259 GOSUB230:LOCATE0,1:PRINT"z";STR$(b+1);:GOSUB233:IFelv=1THENRETURN
260 GOSUB230:LOCATE0,1:INPUT"Pte %";M(a):M(a)=M(a)/100:RETURN
262 IF KL<XV THEN P=M(0) ELSE P=M(1)
264 CT=YV+(KL-XV)*P:IF(KL<E(0))OR(KL>E(1))THEN256
266 DT=ABS(t-ABS(XV-KL)):Y=(DT^2/(2*K))*SGNS:GOSUB192:PRINTTAB(16)"en acuerdo";
268 PRINTTAB(32)"y=";Y;
270 PRINTTAB(48)"z=";Y+CT:RETURN

272 CLS:PRINT"EJE [";STR$(I);" ]";:GOTORT

274 INPUT"Radio";r:RETURN

276 INPUT"D.tg";t:RETURN

278 aln$="Circulo [ ":RETURN

280 GOSUB230:PRINT:GOSUB154:GOSUB274:RETURN

282 aln$="Soluc. [ ":RETURN

284 FORb=0TO1:FORc=0TO1:GOSUB230:GOSUB232:NEXTc,b:GOSUB238:RETURN

286 b=0:FORc=0TO1:GOSUB230:GOSUB232:NEXT:RETURN

288 FORc=0TO2:GOSUB230:GOSUB236:NEXT:M(a)=T(a,0)/T(a,1):N(a)=-(T(a,2)/T(a,1)):RETURN

290 GOSUB230:GOSUB234:M(a)=TAN(100-M(a)):GOSUB240:RETURN

292 PRINTTAB(6)"No hay datos de ";$;:PRINT:RETURN

294 IF W<0THENW=W+400
295 RETURN

296 E=ABSE:IFE>200THENE=400-E
297 RETURN

298 GOSUB102:CLS:INPUT"z est";Z,"i=";L:RETURN
299 WRITE#$,CHR$(200):RETURN

300 prg=3'int.rts
302 INPUT"Hor Pto";E,"Vert";V,"Dist";G:RETURN

304 R=SQR(A^2+F^2-2*A*F*COSM):J=E+ASN(A*(SINM/R))
306 IFJ<0THENJ=J+400:GOTO306
307 IFJ>=400THENJ=J-400:GOTO307
308 PRINT:PRINT"Hor > Pto";J;TAB(16)"Dr > Pto";R:RETURN

310 IFR<0THENS=S+200
311 R=ABSR:RETURN

312 $=C$(P)+CHR$(127):RESTORE#:RESTORE#$,1,318
314 READ#c$,A(P),B(P):IFC<>1THENREAD#Z
316 RETURN

318 GOSUB292:INPUT"x";A(P),"y";B(P):IFC<>1THENINPUT"z";Z
320 SI=322:NO=316:GOTO345
322 GOSUB210:b$=STR$(ROUND(A(P),-4)):c$=STR$(ROUND(B(P),-4)):d$=STR$(ROUND(Z,-4))
324 $=$+","+MID$(b$,2)+","+MID$(c$,2)+","+MID$(d$,2):GOTO299
326 SETn:FORa=j TOk:FORb=1TO2:CLS:PRINT"Dist";a;" [ ";CHR$(64+b);" ]";:INPUT A(a,b):NEXT b,a:RETURN

328 A=D:B=E:X=0:Y=0:FORc=1TO2:A=A+X:B=B+Y:R=A(a,c):S=100-M(c-1):GOSUB310:GOSUB144:NEXTc:RETURN

330 H=ABS(KL-LK)+1E-7:e=H-H^5/n+H^9/U:F=H^3/g-H^7/G+H^11/GG:O=SQR(e^2+F^2):W=ATN(F/e):M=XE+O*SIN(Q+C*W*S):N=YE+O*COS(Q+C*W*S):T=(H^2*31.831)/J:Z=QQ+C*T*S
332 V=Z-100*S
334 IFDP<>0THENM=M+(DP*SINV):N=N+(DP*COSV)
336 RETURN

338 GOSUB192:PRINTTAB(20)CHR$(140);Z;:GOSUB150:RETURN

340 PRINT"Corrige con MM.CC [s/n]";:GOSUB219:RETURN

342 CLS:INPUT"X ant";x,"Y ant";y:PRINTTAB(7)"Coord.nuevas";:RETURN

345 PRINT"Desea grabar en fichero [s/n] ?";:GOSUB219:GOTO RT

358 PRINT"Calculo el punto aproximado con los ";po$;" primeros vertices";:FORy=0TO700:NEXT:BEEP:CLS:RETURN

362 DIM S(K),L(K),D(K),C(K,3),T(K):RETURN

365 RETURN

366 FOR a=K TO1 STEP-1:A(a)=A(a-1):B(a)=B(a-1):C$(a)=C$(a-1):NEXT:RETURN

368 LG=CM*(2*PI*r/400):b=r/SIN(W/2)-r:RETURN

370 CLS:PRINTTAB(10)"Ang w";W;TAB(32)"r";r;TAB(48)"tg";t,"Long";LG;TAB(16)"b";b:RETURN

371 PRINTTAB(32)"Pulse [EXE]":CLS:RETURN

372 CLS:PRINT"Rectas Paralelas";:GOTO371
374 CLS:PRINT"No se cruzan";:GOTO371

376 PRINT"Pesos [s/n]";:GOSUB219:IFp$="S"THENaa=1
377 RETURN

378 S(a)=1:IFaa=1THENPRINT"Peso ";C$(a);:INPUTS(a)
379 RETURN

380 PRINT"Dist ";C$(a);">P";:INPUTL(a):RETURN

382 P=0:PRINT"Est ref de ";C$(a);:INPUTC$(P):GOSUB312:PRINT"Lct H.";C$(a);">";C$(P);:INPUTF:PRINT"Lct H.";C$(a);">P";:INPUTL(a):RETURN

384 PRINT"Ang H.de Pto a >";C$(a);:INPUT L(a):IV=IV+1:RETURN

386 ON elv GOSUB 380,382,384

388 D(a)=POL(D-A(a),E-B(a)):GOSUB158:GE=636620/D(a)^2:RETURN

390 T(a)=(Q(a)-Q1(a))*(-1)*10000:RETURN

392 C(a,1)=(1/D(a))*(D-A(a)):C(a,2)=(1/D(a))*(E-B(a)):T(a)=(D(a)-L(a))*(-1):RETURN

394 Q=Q+200:GOSUB159:Q(a)=Q:X=POL(A(a)-A(P),B(a)-B(P)):GOSUB158:W=Q-F:GOSUB294:Q=W+L(a):GOSUB159:Q1(a)=Q
396 C(a,1)=GE*(E-B(a)ܥe #
                  es                   vp                                  , l   , l                                                                                 
   
 
             E   (                                                                                                                 T                                                 : ` & #                                                                                                                                                                                                                                                                                         E     Times New Roman    Symbol      Arial      CASIO_FX_850P 5 SETN:ANGLE2:CLS
15 CLEAR:ERASEa$:RESTORE75:ip=0:cc=6:r=20:GOTO 80
20 RESTORE(59999+y):ERASEa$
30 GOTO (30+y*5)
35 ip=50:cc=10:r=950:GOTO 80
40 ip=100:cc=5:r=1900:GOTO 80
45 ip=100:cc=3:r=2900:GOTO 80
50 ip=100:cc=6:r=3900:GOTO 80
55 ip=50:cc=6:r=4950:GOTO 80
60 ip=50:cc=4:r=5950:GOTO 80
75 DATACal.libr.,Top obra,Geometria,Trazado,Coorden,Curvas
80 a=1:DIM a$(cc):FOR f=1TOcc:READa$(f):NEXT
82 o=0:CLS:FOR b=1TO 6:IFa>cc THEN 88
84 c=(b-1)*10:IF c>29THEN c=c+2
86 PRINT TAB(c)CHR$(b+144);a$(a);:o=o+1
88 a=a+1:NEXT
90 k$=INPUT$(1)
92 IF(k$>"0")AND(k$<=RIGHT$(STR$(o),1))THENy=VAL(k$)+(INT(a/6)-1)*6:CLS:GOTO(r+y*ip)
94 IF(k$=CHR$(13))AND(a>cc)THEN15
95 IFk$=CHR$(13)THEN82
96 GOTO90

100 'SUBRUTINAS
102 CLS:elv=1:RETURN

104 p$=INPUT$(1)		
105 IF(p$>"0")AND(p$<e$)THEN elv=VAL(p$):RETURNELSE104

106 CLS:PRINT"1> Por Pk 2> Por Puntos";:e$="3":GOTO104

108 SETn:DIMA(K),B(K),C$(K):FORP=0TOK-1:CLS:PRINT"Est";P+1;:INPUTC$(P):GOSUB312:C=1:NEXT
109 IF KK=1THEN RETURN

110 IFK=1THENINPUT"Azimut a";C$(K):GOSUB312
111 RETURN

112 CLS:PRINT"1>Calculo 2> Encaje";:e$="3":GOTO104

114 INPUT"i";L
115 INPUT"Ang H.=";F:RETURN

116 p=0:e=p+1
117 x=POL(A(p)-A(e),B(p)-B(e)):GOSUB158:SETF4:CLS:PRINTC$(p);CHR$(230);C$(e);" ";CHR$(140);Q;TAB(45)"D";x;:IFprg=1THENSTOP:e=e+1:IFe>K-1THENp=p+1:e=p+1
118 IFp>K-2THENRETURNELSE117

120 PRINTTAB(12)"Estacion en ";C$(I-1);:RETURN

122 PRINT:PRINTCHR$(140)"=";Q;TAB(13)"Dist=" ;X:CLS:RETURN

124 CLS:SETF3:PRINT"P.Aprox ";MID$(C$(j),1,7);"/";MID$(C$(k),1,7);:IFn=3THENPRINT"/";MID$(C$(l),1,7);
125 GOSUB150:RETURN

126 W=Q-F:GOSUB294:IFprg<>6THENLOCATE0,1
128 PRINTCHR$(132);W
130 H=100-Q:CLS:RETURN

132 CLS:INPUT"Pto=";pt$:RETURN

134 INPUT"Hor.=";I
136 INPUT"Vert";V,"Dgeo=";G:PRINT"m";J;:INPUTJ:IFV=100THENV=V+1E-7
138 RETURN

140 R=G*(SINV)^elv:IFelv=2THENG=R/SINV
141 U=COSV*G+6.8288E-8*R^2+L-J:RETURN

142 S=H+F-I
144 X=REC(R,S):RETURN

146 CLS:PRINT"Pto";pt$;TAB(15)"z";u;
150 PRINT:PRINT"x";M;TAB(15)"y";N:RETURN

152 INPUT"x";A,"y";B
154 INPUT">x";D,">y";E:RETURN

156 X=POL(A-D,B-E)
158 Q=300-Y
159 IF Q>=400THEN Q=Q-400:GOTO159
160 RETURN

162 INPUT"pk";J,"Interv=";F:pt$=STR$(J):RETURN

164 PRINTCHR$(140);:INPUTQ:RETURN

166 INPUT"Dist";R:RETURN

168 M=X+A:N=Y+B:GOSUB150:RETURN

170 GOSUB272:LOCATE0,1:RETURN

172 INPUT"No vertices";v:RETURN

176 PRINTTAB(12)"Estacion en ";C$(I);:RETURN

178 PRINT"Tg.ent ";:RETURN

180 INPUT"Pk ";p:RETURN

182 CLS:PRINTTAB(4)"Desplazamiento";TAB(32)"1>Constante 2>Variable";:e$="3":GOSUB104:CLS:IFelv=2 THEN RETURN
184 PRINT"Despl=";:GOSUB196:INPUTDP:RETURN

186 INPUT"Long=";LG:RETURN

188 CLS:INPUT"Pk= ";KL:IFprg=2THENRETURN
189 IF(KL<p)OR(KL>p+LG)THEN188ELSEIFelv=2THENGOSUB184
190 RETURN

192 PRINT"Pk";KL;:IF(DP<>0)AND(prg<>4)AND(prg<>5)THENPRINTTAB(16)"Despl";DP;
194 RETURN

196 PRINT"[";CHR$(249)"]";:RETURN

198 PRINT"Radio ";:GOSUB196:INPUTS:RETURN

199 CM=LG/(2*PI*r/400)
200 X=REC(r,100-(Q+100*S)):XC=D+X:YC=E+Y:RETURN

201 SETF3:M=XC:N=YC:PRINTTAB(9)"Coord centro";:GOSUB150
202 m=CM/LG:QC=(Q-100*S):IFQC<0 THEN QC=QC+400
203 RETURN

204 KL=p+LG:DM=CM:GOSUB206:GOSUB226:GOSUB192:GOSUB212:RETURN

206 QL=QC+DM*S+100*S:IF(QL>=400)OR(QL<0)THENQL=QL-400*S
208 RETURN

210 RESTORE#:RESTORE#CHR$(200),1:RETURN

212 X=REC(r,100-(QC+DM*S))
214 M=X+XC:N=Y+YC:IFprg=4THENPRINTTAB(18)CHR$(140);QL;
216 GOSUB150:RETURN

218 CLS:PRINT"Ver cotas [s/n]";
219 p$=INPUT$(1)
220 IFp$="S"THEN RT=SI ELSE RT=NO
221 CLS:RETURN

222 DM=m*(KL-p):GOSUB206:RETURN

224 PRINT:PRINT" 1>Coord   2>Coord y ";CHR$(140);:e$="3":IFprg<>4THENPRINT"  3>Ecuac";:e$="4"
225 DIMM(1),N(1),X(1,1,1),T(1,2):GOTO104
226 PRINT:PRINT"Tg.sal ";:RETURN

228 PRINTTAB(14)sp$;:GOTO150
230 CLS:LOCATE9,0:PRINTaln$;CHR$(65+a);" ]";:RETURN

232 LOCATE0,1:PRINTCHR$(cl+c);
233 INPUTX(a,b,c):RETURN

234 LOCATE0,1:INPUT"Azimut";M(a):RETURN

236 LOCATE0,1:PRINTCHR$(65+c);:INPUTT(a,c):RETURN

238 M(a)=(X(a,1,1)-):C(a,2)=GE*((D-A(a))*(-1)):GOTO390
398 Q(a)=Q:IFIV=1THENW=Q-L(a):GOSUB294:WI=W
400 Q=WI+L(a)-((EA/K)*a):GOSUB159:Q1(a)=Q:C(a,1)=GE*((B(a)-E)*(-1)):C(a,2)=GE*(A(a)-D):C(a,3)=-1:GOTO390
402 CLS:PRINT"Calculando";:FORk=1TOn:FORr=1TOn:FORw=1TOK:E(k,r)=E(k,r)+C(w,k)*S(w)*C(w,r):NEXTw,r,k
404 GOSUB500:FORi=1TOn:FORw=1TOK:H(i)=H(i)+C(w,i)*S(w)*T(w):NEXTw,i:FORi=1TOn:FORw=1TOn:F(i)=F(i)+E(n+i,w)*H(w):NEXTw,i
406 CLS:SETF4:M=D+F(1):N=E+F(2):CLS:PRINT"d[x]";F(1);TAB(16)"d[y]";F(2);:SETF3:GOSUB150:IFn=3THENPRINTTAB(7)"Corr[";CHR$(140);"]";F(3);" seg"
407 RETURN

408 Q(j)=B(j)-D(j)*A(j):Q(k)=B(k)-D(k)*A(k):M=(Q(k)-Q(j))/(D(j)-D(k)):N=D(j)*M+Q(j):RETURN

410 A=TAN(L(k)-L(j)):D=TAN(L(l)-L(k)):E=A(j)+(B(k)-B(j))/A:F=B(j)-(A(k)-A(j))/A
412 G=A(l)-(B(k)-B(l))/D:H=B(l)+(A(k)-A(l))/D:I=(H-F)/(G-E):B=((B(k)-F)+(A(k)-E)/I)/(I+1/I):M=E+B:N=F+B*I:GOSUB124:RETURN

414 IF RE=0 THEN R=ABS RS:LG=A^2/R:XE=D:LE=0:YE=E:QQ=Q:L=LG:S=SGN RS:C=1:RETURN

416 LE=A^2/ABSRE:IFRS<>0THENLS=A^2/ABSRS
418 L=ABS(LS-LE):S=SGNRE:R=ABSRE:C=1:IF(ABSRE<ABSRS)OR(RS=0)THENC=-1
420 QQ=Q-((LE/(2*R))*200/PI)*S*C:IFQQ>=400THENQQ=QQ-400
422 IFQQ<0THENQQ=QQ+400
424 f=0:FORa=1TO3STEP2:X(a)=0:FORb=a TO(a+4*6)STEP4:d=LE^b/b/FACTf/(2*R*LE)^f:f=f+2:X(a)=d-X(a):NEXTb:f=1:X(a)=ABSX(a):NEXTa:TAO=QQ+(ATN(X(3)/X(1)))*S*C:SL=SQR(X(3)^2+X(1)^2):IFC<0THENTAO=TAO+200
426 X=REC(SL,100-TAO):XE=D-X:YE=E-Y:LG=LE:IF C>0 THEN LG=LS
427 RETURN

428 $=EJE$+CHR$(211):RESTORE#:RESTORE#$,1,435
430 READ#$,w,pk,pf:RETURN

432 $=EJE$+MID$(STR$(v),2)+CHR$(211):RESTORE#:RESTORE#$,1,550
434 READ#$,elv,p,D,E,Q,RE,RS,XE,YE,lg,A,QQ:RETURN

435 CLS:PRINT "El eje "$" No existe";:LOCATE0,1:PRINT "Desea crearlo [s/n]";:ce$=INPUT$(1):IF ce$><"S"THEN GOTO 4300
436 CLS: RR=0:e$="4":INPUT"Num de elementos =",w:FORv=1TOw:CLS:PRINTTAB(5)"Elemento ";STR$(v);TAB(32)"1>Recta 2>Circulo 3>Clotoide";:GOSUB104:PRINT
438 IFv=1THENGOSUB178:GOSUB180:GOSUB154:GOSUB178:GOSUB164:pk=p
440 ON elv GOSUB600,602,608
442 $=EJE$+MID$(STR$(v),2)+CHR$(211)+","+p$+","+STR$(ROUND(p,-4))+","+STR$(ROUND(D,-5))+","+STR$(ROUND(E,-5))+","+MID$(STR$(ROUND(Q,-5)),2)+","
444 $=$+STR$(ROUND(RE,-4))+","+STR$(ROUND(RS,-4))+","+STR$(ROUND(XE,-5))+","+STR$(ROUND(YE,-5))+","+MID$(STR$(ROUND(LG,-4)),2)+","+MID$(STR$(ROUND(A,-4)),2)+","+MID$(STR$(ROUND(QQ,-5)),2)
446 GOSUB210:GOSUB299:D=M:E=N:Q=Q1:p=p+LG:L=0:LE=0:LS=0:LG=0:RS=0:RE=0:XE=0:YE=0:A=0:QQ=0:Q1=0:NEXT:$=EJE$+CHR$(211)+","+STR$(w)+","+STR$(pk)+","+STR$(ROUND(p,-4)):GOSUB210:GOSUB299:GOTO428
448 Q=QQ+200:IFC>0THENR=ABSRS:Q=QQ
450 GOSUB159:LK=p-LE*C:J=R*LG:n=40*J^2:U=3456*J^4:g=6*J:G=336*J^3:GG=42240*J^5:RETURN

452 F=0:I=0:GOSUB130:GOSUB142:IFDP<>0 THEN x=X:y=Y:R=ABS DP:Q=q+(100*SGN DP):GOSUB130:GOSUB142:X=X+x:Y=Y+y
453 Q=q:RETURN

500 FOR i=n+1TO n*2:E(i,i-n)=1:NEXT:FOR k=1TO n:z=E(k,k):IFz=0THENGOSUB506
502 FORj=1TO n:E(k,j)=E(k,j)/z:E(k+n,j)=E(k+n,j)/z:NEXT j:FORi=1 TO n:IF i=k THEN505
504 Q=E(i,k):FORj=1TO n:E(i,j)=E(i,j)-E(k,j)*Q:E(i+n,j)=E(i+n,j)-E(k+n,j)*Q:NEXT j
505 NEXT i,k:RETURN

506 FOR h=1TO(n-k):z=E(h+k,k):IFz<>0THEN510
508 NEXT h:PRINT:PRINT"No hay errores";:END

510 FOR i=1TO n:H(i)=E(k,i):E(k,i)=E(k+h,i):E(h+k,i)=H(i):H(i)=E(k+n,i):E=(k+n,i)=E(k+n+h,i):E(k+n+h,i)=H(i):NEXT i:RETURN

550 CLS:PRINT"PK="KL"Fuera del eje";:BEEP:STOP: GOTO 4300

600 F=0:I=0:RR=0:GOSUB186:R=LG:GOSUB130:GOSUB142:Q1=Q:M=D+X:N=E+Y:R=0:RETURN

602 GOSUB186:IFR1=0THENGOSUB198:R1=S
606 RR=R1:RE=R1:R1=0:r=ABS RE:S=SGNRE:GOSUB199 :GOSUB202 :KL=p+LG:DM=CM: GOSUB206 :X=REC(r,100-(QC+DM*S)) :M=X+XC :N=Y+YC:Q1=QL :RETURN
608 RE=RR:RR=0:KK=KL:Q2=Q:GOSUB226: GOSUB198: RS=S:R1=S: INPUT"A";A: GOSUB414 :GOSUB448 :KL=p+L-1E-7 :GOSUB330 :KL=KK :Q1=Z:Q=Q2:LG=L:RETURN


PROGRAMAS

1000 'polig
1002 GOSUB102:CLS:INPUT"No ejes";n:DIM A(n),B(n),C(n),C$(n),D(n),M(n),X(n),Y(n),Z(n)
1004 P=0:INPUT"Base sal";C$(P):GOSUB312:C(0)=Z:C=1:P=n:INPUT"Base lleg";C$(P):GOSUB312:INPUT"Az ref sal";Z(0),"Az ref lleg";AR,"Lct ref";LS:j=A(P)-A(0):k=B(P)-B(0):W=Z(0)-LS
1006 SETF4:FOR I=1 TO n:RT=120:IF ST=0 THENGOSUB170:INPUT"Alt ins";L:ST=1
1007 IF I<>n THENGOSUB170:INPUT"Visando a...";C$(I)
1008 GOSUB170:PRINT"lect hor ";C$(I-1);">";C$(I);:INPUTM(I):GOSUB136:GOSUB140:S=R:T=U
1010 RT=176:GOSUB170:INPUT"Alt.ins";L:GOSUB170:PRINT"lect hor ";C$(I);">";C$(I-1);:INPUTLI:GOSUB136:GOSUB140
1012 D(I)=(S+R)/2:C(I)=(ABST+ABSU)/2*SGNT:Q=W+M(I):GOSUB159:DY=DY+D(I):AZ=Q+200:W=AZ-LI:Z(I)=Q:NEXT
1014 CLS:INPUT"lect ref lleg";LL:Q=LL+W:GOSUB159:q=(Q-AR)/(n+1):PRINT"Error ang";Q-AR
1016 RT=120:FORI=1TOn:GOSUB170:PRINTCHR$(140);" inic";Z(I);:Z(I)=Z(I)-(q*I):PRINTTAB(16)" comp";Z(I):NEXT
1018 sp$="Parciales":RT=228:o=0:i=0:FOR I=1TO n:M=D(I)*SIN Z(I):N=D(I)*COS Z(I):w=w+ABSM:v=v+ABSN:o=o+M:i=i+N: GOSUB272: X(I)=M:Y(I)=N:NEXT:l=j-o:m=k-i
1020 CLS:PRINTCHR$(132);" x";w;TAB(16)CHR$(132);" y";v;TAB(37)"Tolerancia x,y";DY/10000:PRINT"suma parc x";o;TAB(32)"suma parc y";i:PRINT "ERROR TOTAL";SQR(l^2+m^2);TAB(32)"x";-l;TAB(48)"y";-m
1022 sp$="Parc comp":X=-l/w:Y=-m/v:FORI=1TOn:M=X(I)-(ABSX(I)*X):N=Y(I)-(ABSY(I)*Y):GOSUB272:X(I)=M:Y(I)=N:NEXT
1024 CLS:PRINTTAB(6)"COORD GENERALES";:FORI=0TO250:NEXT
1026 u=0:x=0:y=0:FOR I=0 TO n:x=x+X(I):y=y+Y(I):M=x+A(0):N=y+B(0):pt$=C$(I):u=u+C(I):GOSUB146:NEXT:END

1050 'cal taq
1060 GOSUB102:K=1:GOSUB108:GOSUB114:GOSUB116:GOSUB126:C$(1)=C$(0)
1070 GOSUB132:GOSUB134:C$(0)=pt$
1075 GOSUB140:GOSUB142:M=X+A(0):N=Y+B(0):u=Z+U:CLS:GOSUB146:PRINT"CAMBIO DE BASE [s/n]";
1078 p$=INKEY$:IFp$=""THEN1078
1080 IFp$<>"S"THEN1070
1085 CLS:GOSUB114:GOSUB136:A(1)=A(0):B(1)=B(0):O=R:T=u:GOSUB140
1090 GOSUB144:A(0)=(A(0)+X+M)/2:B(0)=(B(0)+Y+N)/2:PRINTCHR$(139);" dist";R-O;TAB(32)CHR$(139);" z";(T-U)-Z
1095 Z=Z-(U+T+Z)/2+T:PRINT"Base ";pt$;TAB(16)"z/c";Z;TAB(32)"x/c";A(0);TAB(48)"y/c";B(0):GOSUB116:GOSUB126:GOTO1070

1100 'perfiles
1102 SETF3:NO=1105:p=0:CLS:PRINT"1>Transv  2>Long";:e$="3":GOSUB104:lv=elv
1105 GOSUB298:CLS:ONlvGOTO1110,1120
1110 h=1:SI=1110:INPUT"No puntos";k:FORf=1TOk:GOSUB255
1115 GOSUB1140:NEXT:GOSUB218:GOTORT
1120 SI=1130:INPUT"Dist org";p,"Pto inicial";h:f=h:GOSUB255:GOSUB1140
1130 f=f+1:GOSUB255:GOSUB1140:A=D:B=E:p=p+w:GOSUB218:GOTORT
1140 PRINT"Pto";STR$(f);:IFlv=2THENPRINTTAB(16)CHR$(238);"Dist";w;
1145 PRINTTAB(32)"D org";p+w;TAB(48)"z";U+Z:CLS:RETURN

1150 'int.inv
1155 CLEAR:n=3:GOSUB172:K=v:GOSUB362:IF K>3 THEN GOSUB340
1160 IFp$="S"THEN MC=1:GOSUB376:DIMQ(K),Q1(K),F(n),H(n),E(2*n,n):po$="3":GOSUB358
1165 GOSUB108:GOSUB366:FORa=1TO K:GOSUB384:NEXT:INPUT"Lct cierre";L(0):EA=L(0)-L(1)
1170 IF MC=0 THEN FOR j=1TO K-2:FOR k=j+1 TO K-1:FOR l=k+1TOK:GOSUB 410:NEXT l,k,j:END
1180 j=1:k=2:l=3:GOSUB410:D=M:E=N:FORa=1TOK:IV=a:GOSUB378:GOSUB388:GOSUB398:NEXT:GOSUB402:END

1200 'int dta
1205 CLEAR:n=2:GOSUB172:K=v:GOSUB362:DIMQ(K),Q1(K):IFK>2THENGOSUB340
1210 IFp$="S"THENMC=1:elv=2:GOSUB376:DIMF(n),H(n),E(n*2,n):po$="2":GOSUB358
1215 GOSUB108:GOSUB366:FORa=1TOK:GOSUB382:GOSUB388:GOSUB394:D(a)=TAN(100-Q1(a)):NEXT
1220 IFMC=0THENFORj=1TOK-1:FORk=j+1TOK:GOSUB408:GOSUB124:NEXTk,j:END
1225 j=1:k=2:GOSUB408:GOSUB124:D=M:E=N:FORa=1TOK:GOSUB378:GOSUB388:Q=Q+200:GOSUB159:Q(a)=Q:GOSUB396:NEXT: GOSUB402:END

1250 'int.mixta
1255 CLEAR:n=3:INPUT"No.obsev";K:GOSUB376:GOSUB362:DIMF(n),H(n),E(n*2,n),Q(K),Q1(K):IV=0
1260 PRINTTAB(7)"Punto aproximado";:PRINT:GOSUB154:GOSUB108:e$="4":GOSUB 366
1265 FORa=1TOK:GOSUB378:CLS:PRINT"Base ";C$(a);TAB(0)"1>Dist 2>Lct H.Dta 3>Lct H.Inv";:GOSUB104:PRINT:GOSUB386:ON elv GOSUB 392,394,398:NEXT:GOSUB402
1270 SETF5:s=0:m=0:CLS:FORi=1TOK:FORj=1TOn:m=m+C(i,j)*F(j):NEXTj:m=m-T(i):PRINT"Residuo en ";C$(i);m:s=s+m^2:m=0:NEXTi
1275 R=SQR(s/(K-n)):CLS:FORi=1TOn:PRINT"error [";CHR$(119+i);"]";R*SQRE(i+n,i):NEXT:END

1300 'hansen
1305 DIMF$(1),E(5):K=2:GOSUB108:FORP=0TO1:GOSUB132:F$(P)=pt$:NEXT:l=1:L=0
1310 K=0+O:FORP=0TO2:PRINT"lct hz ";F$(K);">";:IFP=2THENPRINTF$(l);ELSEPRINTC$(P);
1312 INPUTE(P+L):NEXT:O=1:L=3:l=0:IFK=0THEN1310
1315 FORP=0TO1:E=E(P+1)-E(P):GOSUB296:E(P)=E:NEXT:a=E(0):b=E(1):E=E(3)-E(5):GOSUB296:c=E:E=E(4)-E(3):GOSUB296:d=E:e=a+b+c:f=b+c+d
1320 I=ATN(SINa*SINc*SINf/SINb/SINd/SINe):H=(b+c)/2:F=ATN(TANH/TAN(50+I)):I=H+F:J=H-F:SETF4
1325 CLS:PRINT"A=";I;TAB(16)"B=";J:X=POL(B(1)-B(0),A(1)-A(0)):R=X*SIN(J+200-f)/SIN(I+J+200-f):S=X*SIN(I+200-e)/SIN(J+I+200-e)
1330 E(2)=A(0)+R*SIN(Y+I):E(3)=B(0)+R*COS(Y+I):Y=Y+200:E(0)=A(1)+S*SIN(Y-J):E(1)=B(1)+S*COS(Y-J)
1335 FORP=0TO1:M=E(P+P):N=E(P+1+P):CLS:PRINTTAB(5)"Base ";F$(P);:GOSUB150:NEXT:GOTO 15

1350 'excentr
1355 SETF4:e$="3":PRINT"1>Lct excetr  2>Repl exctr";:GOSUB104:CLS:ONelvGOTO1360,1385
1360 PRINT"1>Exc total  2>Exc parcial";:GOSUB104:lv=elv:CLS:GOSUB300:IFlv=2THENINPUT"Dist Est>D";X,"Hor Est>D";B
1365 GOSUB302:IFlv=1THENB=E
1370 M=E-C:S=E-B:IFS>200THENS=400-S
1372 IFCOSS=0THENS=S+1E-8
1375 F=X*COSS*SINV^2+ABS(COSS*SINV^2*SQR(X^2+(G^2-X^2)/(COSS^2*SINV^2)))
1380 CLS:PRINTTAB(8)"[ Desde Vert ]";:GOSUB304:GOTO1365
1385 GOSUB300:INPUT"Hor E>Ref";Q,"Az V>Ref";L,"Dr V>Ref";F:K=Q-C:P=ASN((A*SINK)/F):C=L+(200-(K+P)):M=L-C:E=L:GOTO1395
1390 CLS:INPUT"Az V>P";E,"Dr V>P";F:M=E-C
1395 CLS:PRINTTAB(7)"[ Desde excentr]";:GOSUB304:GOTO1390

1400 'MM.CC
1405 c=1:SETn:DIMl(3),e(2),D(4,2),M(4):FORa=1TO4:FORb=1TO2:CLS:PRINT"^";c;:INPUTD(a,b):c=c+1:M(a)=M(a)+D(a,b):NEXTb,a:e(1)=M(1)-M(3):e(2)=M(2)-M(4)
1410 FORc=1TO2:FORb=c TOc+2STEP2:FORa=1TO2:D(b,a)=D(b,a)-e(c)/4:J=J+D(b,a):NEXTa,b,c:U=(400-J)/8
1415 CLS:SETF4:PRINTTAB(6)"[error de cierre]";TAB(32)"1>";e(1);TAB(48)"2>";e(2)
1420 CLS:LOCATE9,0:PRINT"Ang comp";:c=1:FORa=1TO4:FORb=1TO2:D(a,b)=D(a,b)-U:LOCATE0,1:PRINT"^";STR$(c);D(a,b):LOCATE0,0:c=c+1:NEXTb,a:CLS
1425 SI=1430:NO=1445:PRINT"Calcular coord [s/n]";:GOSUB219:CLS:GOTORT
1430 PRINT"Coord pto A";:GOSUB154:A=D:B=E:PRINT"Pto B ";:GOSUB164:l(0)=R
1435 FORa=1TO3:l(a)=l(a-1)*SIND(a,1)/SIND(a+1,2):CLS:PRINT"base";STR$(a+1);l(a):NEXT:CLS
1440 X=0:Y=0:FORa=0TO3:PRINTTAB(12)"Pto ";CHR$(65+a);:GOSUB168:R=l(a):Q=Q+q:GOSUB159:GOSUB130:GOSUB142:q=200-(D(a+1,2)+D(a+2,1):A=M:B=N:NEXT
1445 GOTO 5

1450 CLEAR'trilat
1455 n=2:GOSUB172:K=v:GOSUB362:IFv>2THENGOSUB340
1460 IFp$="S"THENMC=1:GOSUB376:DIMF(n),H(n),E(n*2,n):po$="2":GOSUB358
1465 IFMC=0THENK=2
1470 GOSUB108:GOSUB366:FORa=1TOK:GOSUB380:NEXT
1475 X=POL(A(2)-A(1),B(2)-B(1)):GOSUB158:I=ACS((X^2+L(2)^2-L(1)^2)/(2*X*L(2))):S=Q-I:M=A(2)+L(2)*SIN S:N=B(2)+L(2)*COS S:GOSUB124:IFMC=0THEN1450
1480 D=M:E=N:FORa=1TOK:GOSUB378:GOSUB388:GOSUB392:NEXT:GOSUB402:END

2000 prg=1'replant
2005 CLS:INPUT"No.bases repl";K:C=1:GOSUB108:GOSUB116:GOSUB106
2010 CLS:IFelv=1THENGOSUB162:GOSUB154:GOTO2025
2015 GOSUB154:GOTO2025
2020 J=J+F:pt$=STR$(J):GOSUB154
2025 FOR P=0 TO K-1:A=A(P):B=B(P):GOSUB156:IF K>1 THENPRINT"Est ";C$(P);" : ";
2030 PRINTpt$;:GOSUB122:NEXT:IFelv=1THEN2020ELSE2015

2100 prg=2'a.v.p
2102 ONERRORGOTO2150
2105 DP=0:DIME(1),D(1):SETF3:GOSUB244:CLS:PRINT"1> Dos Ptos  2>Pto y Pend. [%]";:e$="3":GOSUB225:GOTO(2105+elv*5)
2110 FORa=0TO1:FORb=0TO1:c=0:GOSUB258:NEXTb:GOSUB238:NEXTa:GOSUB242:GOTO2120
2115 b=0:FORa=0TO1:c=0:GOSUB258:GOSUB240:NEXT:GOSUB242
2120 CLS:PRINT"Pk/v";XV;TAB(18)"z/v";YV;TAB(32)"P.e";M(0)*100;"%";TAB(50)"P.sl";M(1)*100;"%":S=M(1)-M(0):Q=ABSS
2125 K=0:INPUT"Kv";K:IFK>0THENt=K*Q/2ELSEGOSUB276:K=2*t/Q
2130 J=K*Q^2/8:PRINT"Kv";K;TAB(17)"tg";t;TAB(32)CHR$(140);Q;TAB(49)CHR$(137);J
2135 T=-t:gs=178:FORa=0TO1:E(a)=XV+T:D(a)=YV+T*M(a):GOSUBgs:PRINT"PK";E(a);TAB(20)"z";D(a);:T=t:gs=226:NEXT:STOP
2140 NO=2125:SI=2141:GOSUB218:GOTORT
2141 GOSUB162:KL=J:IF F=0 THEN GOSUB 262:GOTO2141
2145 GOSUB262:KL=KL+F:GOTO 2145
2150 GOSUB372:RESUME2110

2200 'simpson
2210 SETn:GOSUB172:DIMX(v+1),Y(v+1):FORI=1TOv
2220 PRINT"X"I;:INPUTX(I):PRINT"Y"I;:INPUTY(I):IFI=1THEN2250
2230 IF(I)=999THENI=I-1:M=M-D:GOTO2220
2240 D=SQR((X(I)-X(I-1))^2+(Y(I)-Y(I-1))^2):M=M+D:Z=D:PRINT"d (";I-1;I")=";:GOSUB2280:PRINT"m":Z=M:PRINT"Long";:GOSUB2280:PRINT"m"
2250 NEXT:C=SQR((X(v)-X(1))^2+(Y(v)-Y(1))^2):M=M+C:Z=C:PRINT"d(";v;"1 )=" ;:GOSUB2280: PRINT"m": Z=M: PRINT"Long";: GOSUB2280 :PRINT"m"
2260 X(v+1)=X(1):Y(v+1)=Y(1):A=O:FORI=1TOv:A=A+(X(I)+X(I+1))*(Y(I)-Y(I+1)):NEXT:S=ABSA/2
2270 Z=S:PRINT"Area";:GOSUB2280:PRINT"m";CHR$(146):GOTO5
2280 SETF3:PRINT;Z;:SETn:RETURN

2300 PRINT "Cubicacion":CLS
2310 INPUT"Pk Inicial";PK1,"Pk Final";PKF
2320 PRINT"Sup Pk";PK1;:INPUT S1
2330 INPUT"Intervalo = ",I
2340 IF I=0 THEN 2350
2345 PK2=PK1+I:GOTO 2360
2350 INPUT"Pk";PK2
2360 PRINT"Sup Pk"PK2;:INPUT S2
2370 D=PK2-PK1:VP=((S1+S2)/2*D)
2375 PRINT"Parcial de";PK1;" a";PK2"= ";ROUND(VP,-3)" m";CHR$(147)
2380 PK1=PK2:S1=S2:VT=VT+VP
2390 IF PK1>=PKF THEN PRINT"Total Volumen";ROUND(VT,-3)" m";CHR$(147):GOTO 15
2395 GOTO 2340

2400 'kg/ml  ACEROS
2410 INPUT "Diam.(mm)=",D:P=PI*(D/2000)^2*7850:SETF2:PRINT P;"kg/ml":GOTO 2400
3000 prg=3' int.rts
3005 ONERRORGOTO3090
3010 GOSUB244:GOSUB224:GOTO(3000+elv*20)
3020 GOSUB250:GOTO252
3040 GOSUB254:GOTO252
3060 GOSUB246:IFelv=2THEN3080
3070 FORa=0TO1:GOSUB288:NEXT:GOTO252
3080 cl=109:FORa=0TO1:GOSUB286:M(a)=X(a,0,0):N(a)=X(a,0,1):NEXT:GOTO252
3090 GOSUB372:RESUME3000

3100 'int circ
3102 ONERRORGOTO3120
3105 SETN:GOSUB278:a=0:GOSUB280:A=D:B=E:R=r:a=1:GOSUB280:GOSUB156
3110 P=(R+X+r)/2:W=2*ATNSQR((P-R)*(P-X)/(P*(P-r)))
3115 SETF4:GOSUB282:S=Q+W:FORc=-1TO0:a=-15+c:GOSUB230:GOSUB144:M=A+Y:N=B+X:GOSUB150:S=Q+(W*SGNc):NEXT:GOTO3105
3120 GOSUB374:RESUME3100

3200 'int rt/crc
3205 ONERRORGOTO3255
3210 SETn:a=0:GOSUB278:GOSUB230:PRINT:GOSUB154:GOSUB274
3220 GOSUB244:GOSUB224:GOTO(elv*5+3220)
3225 GOSUB284:GOTO3250
3230 GOSUB286:GOSUB290:GOTO3250
3235 GOSUB246:IFelv=1THEN3240ELSE3245
3240 GOSUB288:GOTO3250
3245 cl=109:GOSUB286:M=(0)=X(0,0,0):N=(0)=X(0,0,1)
3250 GOSUB282:SETF4:L=1+M(0)^2:P=2*((N(0)-E)*M(0)-D):S=D^2+(N(0)-E)^2-r^2:x=1:FORa=0TO1:M=(-P+(SQR(P^2-4*L*S)*SGNx))/(2*L) :N=N(0)+M(0)*M:GOSUB230:GOSUB150:x=-1:NEXT:GOTO3210
3255 GOSUB374:RESUME3200

4000 prg=4'recta
4010 GOSUB178:GOSUB180:GOSUB154:GOSUB164:GOSUB182:GOSUB186:A=D:B=E:PK=p:q=Q
4020 GOSUB188:R=KL-p:GOSUB452:SETF3:GOSUB192:GOSUB168:GOTO4020
4100 prg=4'circular
4105 GOSUB112:CLS:IFelv=2THEN4130
4106 'calc.circ
4107 CLS:PRINT"1>Coord  2>Ab/Ord desde T.E";:GOSUB104:CLS:IFelv=1THEN4120
4110 INPUT"Ang w";W:CM=200-W:GOSUB198:r=ABSS:S=SGNS:t=r*TAN(CM/2):SETF3:GOSUB368:GOSUB370:m=CM/LG/2: SI=4111:NO=4110 :GOSUB218:GOTORT
4111 GOSUB178:GOSUB180
4112 elv=1:GOSUB188:GOSUB192:D=SIN(m*(KL-p))*r*2:Q=400+(m*(KL-p))*S:GOSUB159
4115 PRINTTAB(16)"Ang";Q;TAB(35)"Dist desde T.E ";D:GOTO4112
4120 GOSUB178:GOSUB154:GOSUB180:GOSUB164
4122 GOSUB198:GOSUB186:GOSUB182:r=ABSS:S=SGNS:R=r:GOSUB199:GOSUB201:GOSUB204
4125 GOSUB188:DP=-DP:r=R+DP*S:GOSUB192:GOSUB222:GOSUB212:GOTO4125

4130 'enc circ
4132 ONERRORGOTO4195
4135 DIM E(1):GOSUB244:CLS:PRINTTAB(4)"Aln rectas";:GOSUB 224
4140 CLS:INPUT"PK con coord xa,ya";pk:GOSUB(246+elv*4):GOTO252
4150 A=XV:B=YV:FORw=0TO1:D=X(w,0,0):E=X(w,0,1):GOSUB156:E(w)=Q:IFw=0THENpv=X+PK
4155 NEXT:W=ABS(E(1)-E(0)):IFW>200THEN W=400-W
4160 CM=200-W:Q=E(0)-200:GOSUB159
4165 l=Q+CM:IFl>=400THEN l=l-400
4168 IF MID$(STR$(1),1,8)=MID$(STR$(E(1)),1,8)THEN S=1 ELSE S=-1
4170 r=0:CLS:GOSUB 274:IF r>0 THEN t=r*TAN(CM/2) ELSE GOSUB 276:r=t/TAN(CM/2)
4175 GOSUB368:h=100-E(0):X=REC(t,h):D=XV+X:E=YV+Y:p=pv-t
4180 GOSUB370:SI=4185:NO=4170:GOSUB218:IF RT=NO THEN GOTO 4170
4185 elv=1:DP=0:GOSUB200:KL=p:GOSUB178:GOSUB192:GOSUB202:DM=0:GOSUB206:GOSUB212:GOSUB204
4190 GOSUB188:GOSUB192:GOSUB222:GOSUB 212:GOTO4190
4195 GOSUB372:RESUME4130

4200 CLEAR:prg=5'clot
4205 DIMX(3):CLS: GOSUB178:GOSUB180:GOSUB154:GOSUB164:GOSUB178:GOSUB198 :RE=S: GOSUB226:GOSUB198: RS=S: INPUT"A";A :GOSUB414
4210 SETF4:CLS:PRINT"xi";XE;TAB(16)"yi";YE;TAB(37)"Az inicio";QQ
4220 SI=4230:NO=4200:GOSUB218:GOTO RT
4230 GOSUB448:KL=p+L-1E-7:GOSUB330:GOSUB226:GOSUB338:GOSUB182
4240 GOSUB188:DP=DP*C:IFS=1THENDP=-DP
4250 GOSUB330:GOSUB338:GOTO4240

4300 'trazado
4305 CLEAR:DIMX(3):CLS:INPUT"Nombre del EJE =";EJE$: GOSUB428:e$="3":CLS:PRINT"1>Calculo 2>Replanteo" ;:GOSUB104: lv=elv:SETF3:PRINT:PRINT"Ini=";pk;TAB(16)"Fin=";pf;
4310 v=0:PRINT:INPUT"Pk inicial";KL,"Intervalo=";ii:'GOSUB184:DPP=DP
4312 IF lv=2 THEN prg=1:K=1:GOSUB 108:GOSUB116
4315 LE=0:v=v+1:GOSUB432
4320 IF KL>p+lg THEN 4315
4322 ON elv GOSUB 4330,4340,4350
4324 IF ii=0 THEN 4310
4325 KL=KL+ii:GOTO4320
4330 PK=p:q=Q:R=KL-p:GOSUB 4397
4335 GOSUB452:M=X+D:N=Y+E:AZ=Q:GOTO4380
4340 LG=lg:r=ABS RE:S=SGN RE:R=r:GOSUB199:GOSUB 202:CLS:GOSUB 4397:DPP=DP:DP=-DPP:r=R+DP*S:GOSUB222:X=REC(r,100-(QC+DM*S)):M=X+XC:N=Y+YC:AZ=QL:GOTO4380
4350 KK=KL:C=1:IF RE=0THEN R=ABSRS:L=lg:LS=L:LE=0:LG=L:S=SGN RS:GOTO4353ELSER=ABSRE:LE=A^2/R:L=lg:S=SGNRE
4352 IF(ABSRE<ABSRS)OR(RS=0)THENC=-1
4353 LG=LE:IFC>0THENLG=A^2/ABSRS:LS=LG
4355 GOSUB 4397:IFS=1THENDP=-DP
4360 GOSUB448:GOSUB330:AZ=Z:KL=KK:GOTO4380
4380 IF lv=1 THEN4395
4382 QW=Q:X=POL(A(0)-M,B(0)-N):GOSUB158
4390 IF elv=2 THEN DP=-DP
4391 CLS: GOSUB 192:GOSUB122:Q=QW:RETURN
4395 prg=4:GOSUB192:PRINTTAB(20)CHR$(140);AZ;:GOSUB150:RETURN
4397 CLS:PRINT "Pk=";KL;:GOSUB 184:RETURN

4400 'borra
4410 CLS:e$="4":PRINT"1> Bases  2> Ejes  3>Fin";:GOSUB104:lv=elv:ON lv GOTO4420,4430,15
4420 CLS:INPUT"Base";a$:$=a$+CHR$(127):RESTORE#:RESTORE#$,1,4420:GOSUB4490:GOTO4400
4430 CLS:INPUT"EJE";a$
4440 q=1:$=a$+CHR$(211):RESTORE#:RESTORE#$,1,4450:GOSUB4490
4450 $=a$+MID$(STR$(q),2)+CHR$(211):RESTORE#:RESTORE#$,1,4400:GOSUB4490:q=q+1:GOTO4450
4490 WRITE#:RETURN

4500 ' bases
4510 K=1:KK=1:C=0:GOSUB 108:GOTO 4500

5000 'AZ,D
5010 CLS:GOSUB152:GOSUB156:SETF4:GOSUB122:GOTO5010

5050 prg=6'coor anl
5060 GOSUB152:GOSUB115:GOSUB156:SETF4:GOSUB122:GOSUB126
5070 INPUT"Hor";I:GOSUB166:GOSUB 142:GOSUB168:GOTO5070

5100 'P-R
5110 GOSUB 154:SETF4:A=D:B=E
5120 GOSUB 164:GOSUB 166:GOSUB 130:GOSUB 142:GOSUB 168:CLS: PRINT "*Adel.=1 *Otro Pto=2 *Otro Cal=3";:CE$=INPUT$(1):IF CE$="1" THEN A=M:B=N:GOTO 5120
5130 CLS:IF CE$="2" GOTO 5120 ELSE 5110

5150 SETf3: CLS:'INTERP.
5160 INPUT"Dist 1=";D1,"Z 1=";Z1
5170 INPUT"Dist 2=";D2,"Z 2=";Z2
5180 CLS:INPUT "Dist. a calcular ";DC
5185 ZC=(((DC-D1)*(Z2-Z1))/(D2-D1))+Z1
5190 CLS:PRINT "Cota a  "DC;"m. ";ZC;
5195 LOCATE0,1:PRINT CHR$(145)"Otra dist "CHR$(146)"Otro calculo ";:DC$=INPUT$(1):ON VAL(DC$)GOTO 5180,5150
5199 GOTO 5195

5200 'peraltes
5201 CLS:d$="S":SETF3
5202 INPUT  "Prof Capa =",P
5204 INPUT "Cta Rasante=",R
5206 PRINT "Corregir % o Dist ";:d$=INPUT$(1)
5208 IF d$="S" THEN 5210 ELSE 5222
5210 CLS:INPUT "Pte A% =",P1
5212 INPUT "Dist A =",D1
5214 INPUT "Pte B% =",P2
5216 INPUT "Dist B =",D2
5218 INPUT "Pte C% =",P3
5220 INPUT "Dist C =",D3
5222 ZE=R-P
5224 Z1=ZE+(D1*P1/100)
5226 Z2=ZE+(D2*P2/100)
5228 Z3=ZE+(D3*P3/100):CLS
5230 PRINT "  ";D1;TAB(12);D2;TAB(21);D3;
5232 LOCATE0,1:PRINT Z1;TAB(10);Z2;TAB(20);Z3
5234 CLS:GOTO 5204

5250 'helmert
5252 SETF4:CLS:INPUT"1>Giro  2>Giro+Trasl    ",elv:ON elv GOTO5254,5258
5254 CLS:INPUT"Giro";G,"Xo";A,"Yo";B
5256 GOSUB342:M=A+x*COSG-y*SING:N=B+x*SING+y*COSG:GOSUB150:GOTO5256
5258 CLS:INPUT"No Puntos";a:DIMA(a,1,1):SETn:FORz=1TOa
5260 FORt=0TO13STEP13:FORs=0TO1:CLS:PRINTCHR$(88+s);CHR$(97+t);z;:INPUTA(z,t/13,s):NEXTs,t,z:A=a:W=1
5262 FORI=1TOA-1
5265 S=(A(I+W,1,0)-A(I,1,0))*(A(I+W,0,0)-A(I,0,0)):T=(A(I+W,1,1)-A(I,1,1))*(A(I+W,0,1)-A(I,0,1)):E=S+T:B=B+E
5270 F=(A(I+W,0,0)-A(I,0,0))^2+(A(I+W,0,1)-A(I,0,1))^2:O=O+F:U=(A(I+W,1,1)-A(I,1,1))*(A(I+W,0,0)-A(I,0,0)):V=(A(I+W,1,0)-A(I,1,0))*(A(I+W,0,1)-A(I,0,1)):G=U-V:D=D+G:IFF=0THENF=1E-7
5275 K=E/F:L=G/F:IFK>1THENK=1
5278 IFL>1THENL=1
5280 CLS:SETF4:PRINTTAB(32)"COS";CHR$(136);ACSK;TAB(48)"SIN";CHR$(136);ASNL:NEXT:W=W+1:A=A-1:IFW>a-1THEN5282ELSE5262
5282 X=B/O:Y=D/O:IFX>1THENX=1
5284 IFY>1THENY=1
5286 CLS:PRINT"Angulo de giro";TAB(32)"COS";CHR$(136);ACSX;TAB(48)"SIN";CHR$(136);ASNY
5288 W=0:A=0:FORI=1TOa
5290 O=A(I,1,0)-A(I,0,0)*X+A(I,0,1)*Y:P=A(I,1,1)-A(I,0,0)*Y-A(I,0,1)*X:W=W+O:A=A+P:NEXT
5292 O=W/a:P=A/a:PRINTTAB(5)"Coord. nuevas de o'";TAB(32)"x";O;TAB(48)"y";P
5294 GOSUB342:M=O+x*X-y*Y:N=P+x*Y+y*X:GOSUB150:GOTO5294

6000 'ARCO CAPAZ
6010 GOSUB 152:INPUT "Ang";W:GOSUB 156:H=X/2/TANW
6020 FORa=1TO2:CLS:M=(A+D)/2-(-1)^a*H*SINQ:N=(D+E)/2+(-1)^a*H*COSQ
6030 SETn:PRINT "Soluc";a;:SETF4:PRINTTAB(16)"radio";X/2/SINW;:GOSUB 150:NEXT:CLS:GOTO 6010

6050 'R>fl&cd
6060 INPUT "Flecha";f,"Cuerda";c:h=c/2:g=1-COS(2*ATN(f/h))
6070 SETf3:PRINT "Radio";f/g:GOTO 6060

6100 'r.i/c/e
6102 ONERRORGOTO 6140
6105 CLEAR :DIMa(2)
6110 SETn:L=0:FORA=0TO2:PRINT "LADO";A+1;:INPUT a(A):L=L+a(A):NEXT
6115 P=L/2:S=SQR(P*(P-a(0))*(P-a(1))*(P-a(2))):F=S/P:H=a(0)*a(1)*a(2)/(4*S)
6120 SETF4:CLS:PRINT "R.ins";F;TAB(16)"R.circ";H;TAB(32)"R.exisor al lado n";CHR$(223);
6125 k$=INKEY$:IFk$=""THEN6125
6130 IF(k$>0)AND(k$<4)THENQ=VAL(k$):GOTO 6135 ELSE6125
6135 LOCATE16.1:PRINTSTR$(Q);"  ";S/(P-a(Q-1)):GOTO 6100
6140 GOSUB 374:RESUME6100

6150 'fl>r&cd
6160 INPUT "Radio";R,"Cuerda";C:c=C/2:F=c*TAN((2*ASN(c/R)/4))
6170 SETf3:PRINT "Cda/2";c;"  Flecha";F:GOTO 6150

60000 DATAPolign,Cal.taq,Trasv/Lon,Int.inv,Int.dta,Int.mixta>,Hansen,Excentr,Comp.cuadr,Trilat
60001 DATAReplant,Acuerdos,Simpson,Cubicac,kg/m aceros
60002 DATAInt.rts,Int.cir,Int.Rt+Cir
60003 DATA Recta,Circulo,CLotoide,Trazado,Borrar,Grabar
60004 DATAAz&Dist,Radiacion,Pol>Rec,Interpol,Peraltes,Helmert
60005 DATAArc.cpaz,R>fl&cda,R.i/c/e,Fl>r&cda

                                                                                                                                                                  2  3  N  O  _  `  |  }                      K  L  x  y                    {vqlgb]X       	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	c U] a	c  !    Y  Z  {  |                              
      E  F  G                  {vqlgb]X       	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	c U] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !      "  #  $  2  3  N  O  P  ]  ^            B  C  D  ~                #	  $	  8	  9	  O	  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !O	  P	  Q	  o	  p	  q	  	  	  	  	  	  	  	  	  	  
   
  !
  ,
  -
  B
  C
  D
  h
  i
  
  
  
  
  
  
  
  
  
  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !
  
  
  
            B  C  D  e  f  g                                *  +  ,  C  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !C  D  E                  "
  #
  X
  Y
  c
  d
  e
  
  
  
  
  
  
  
  
  
      "  #  R  S  T  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !T                      <  =  G  H  I  p  q  r                    	  
  +  ,  :  ;  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !;  <  [  \  ]                "  #  V  W  X  v  w                        D  E  F  {  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !{  |  }                  7  8  9  k  l              .  /  g  h              B  C  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !C                            +  ,  -  I  J  K  v  w  x                  	  ]  ^  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !^  _                                  E  F  b  c  d  u  v                    þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !  K  L  M  a  b  s  t  u                    )  *  {  |            |  }  ~      %  &  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !&  P  Q  [  \  ]                  
  I  J  K                    6  7  8  d  e  f    þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !                5  6  7  h  i  s  t  u                  i   j   k                     !  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !!  !  !  ,!  -!  .!  !  !  !  !  !  #"  $"  O"  P"  "  "  #  #  #  #  "$  #$  -$  .$  /$  $  $  $  $  $  T%  U%  V%  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !V%  %  %  %  %  %  &  &  L&  M&  d&  e&  ('  )'  d'  e'  o'  p'  q'  '  '  '  '  '  '  '  )(  *(  +(  (  (  3)  4)  r)  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !r)  s)  )  )  *  *  *  *  +  +  +  +  ,  ,  ,  },  ~,  ,  ,  ,  ,  ,  --  .-  -  -  -  -  -  -  -  -  -  -  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !-  i.  j.  k.  .  .  .  .  .  .  /  /  /  /  -0  .0  /0  00  90  :0  ;0  F0  G0  0  0  I1  J1  1  1  1  1  2  2  2  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 U] a	 U] a	 U] a	 U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !2  2  2  2  D3  E3  3  3  F4  G4  5  5  v5  w5  5  5  6  6  6  $6  %6  f6  g6  6  6  6  6  6   7  7  7  V7  W7  7  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !7  7  58  68  78  E8  F8  8  8  8  8  8  8  9  9  U9  V9  9  9  9  9  :  :  
:  :  :  T:  U:  :  :  :  :  Q;  R;  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c  !R;  ;  ;  ;  ;  ;  <  <  O<  P<  <  <  <  <  `=  a=  b=  q=  r=  =  =  >  >  >  >  $?  %?  |?  }?  ~?  ?  ?  ?  ?  þ}xsnid_Z           	] a	c 	] a	c 	] a	c U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c  !?  '@  (@  W@  X@  @  @  5A  6A  A  A  B  B  kB  lB  mB  zB  {B  B  B  @C  AC  \C  ]C  C  C  C  C  C  C  D  D  D  D  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !D  D  D  D  D  D  E  E  E  E  E  E  GF  HF  F  F  G  G  `G  aG  G  G  FH  GH  RH  SH  TH  eH  fH  H  H  H  H  H  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c  !H  H  I  I  I  I  I  I  I  J  J  FJ  GJ  uJ  vJ  J  J  J  J  J  J  0K  1K  2K  BK  CK  WK  XK  K  K  L  L  ML  NL  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !NL  L  L  L  L  FM  GM  M  M  M  M  N  N  .N  /N  GN  HN  IN  VN  WN  N  N  N  N  N  N  kO  lO  O  O  LP  MP  P  P  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !P  P  P  P  P  P  P  P  
Q  Q  (Q  )Q  >Q  ?Q  WQ  XQ  jQ  kQ  Q  Q  Q  Q  Q  Q  	R  
R  WR  XR  fR  gR  hR  {R  |R  R  þ}xsnid_Z           	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c  !R  R  R  R  R  R  S  S  2S  3S  HS  IS  fS  gS  S  S  S  S  S  S  S  S  S  T  T  ST  TT  T  T  T  T  U  U  U  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !U   U  !U  5U  6U  mU  nU  U  U  U  U  U  U  U  U  	V  
V  <V  =V  V  V  W  W  W  W  W  bW  cW  W  W  W  W  W  W  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	  !W  W  W  1X  2X  X  X  X  X  Y  Y  XY  YY  Y  Y  Y  Y  Z  Z  Z   Z  !Z  5Z  6Z  sZ  tZ  Z  Z  [  [  1[  2[  S[  T[  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !T[  t[  u[  [  [  \  \  <\  =\  {\  |\  \  \  ]  ]   ]  !]  "]  7]  8]  ]  ]  ]  ]  ^  ^  Y^  Z^  ^  ^  ^  ^  ^  ^  þ}xsnid_Z           U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !^  ^  T_  U_  _  _  _  _  _  _  _  _  `  `  3`  4`  J`  K`  j`  k`  `  `  *a  +a  a  a  a  a  a  a   b  b  +b  ,b  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	  !,b  Ab  Bb  ib  jb  b  b  b  b  b  b  c  c  c  !c  "c  yc  zc  c  c  c  c   d  !d  wd  xd  d  d  d  d  d  d  d  d  þ}xsnid_Z           	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !d  d  d  d  d  d  e  e  Je  Ke  e  e  e  e  e  e  e  ?f  @f  gf  hf  if  f  f  f  f  f  f  f  f  g  g  6g  7g  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c U] a	 U] a	  !7g  g  g  g  g  g  g  g  g  g  g  g  h  h  =h  >h  `h  ah  }h  ~h  h  h  h  h  h  h  h  h  h  h  i  i  i  i  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !i  4i  5i  Oi  Pi  yi  zi  i  i  i  i  i  i  i  j  j  6j  7j  zj  {j  j  j  k  k  'k  (k  k  k  Il  Jl  gl  hl  yl  zl  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !zl  l  l  m  
m  m  m  um  vm  m  m  m  m  0n  1n  hn  in  jn  zn  {n  n  n  n  n  Ko  Lo  Mo  Zo  [o  o  o  o  o  o  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c  !o  o  o  o  o  o  o  8p  9p  p  p  p  p  p  p  2q  3q  kq  lq  q  q  q  q  q  q  q  r  r  r  dr  er  r  r  r  þ}xsnid_Z           	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c U] a	 U] a	  !r  r  r  r  6s  7s  cs  ds  es                                                                                                                                                                                                                                                                                                                                                                                                    	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c 	] a	c      3  O  `  }            L  y            Z  |                                                                                                                z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V                     F  G              #  $  3  O                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   O  P  ^        C  D            $	  9	  P	  Q	  p	  q	  	  	                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   	  	  	  	   
  !
  -
  C
  D
  i
  
  
  
  
  
  
  
        C                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   C  D  f  g                      +  ,  D  E                                                                                                                    z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V         #
  Y
  d
  e
  
  
  
  
  
      #  S  T                                                                                                                      z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V         =  H  I  q  r            
  ,  ;  <  \  ]                                                                                                                  z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V         #  W  X  w                E  F  |  }                                                                                                                    z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V         8  9  l          /  h        C                                                                                                                        z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V           ,  -  J  K  w  x            	  ^  _                                                                                                                    z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V                   F  c  d  v            L  M  b  t                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   t  u            *  |        }  ~    &  Q  \  ]                                                                                                                  z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V           
  J  K              7  8  e  f                                                                                                                      z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V       6  7  i  t  u            j   k               !  !  -!                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   -!  .!  !  !  !  $"  P"  "  #  #  #$  .$  /$  $  $  $  U%  V%  %  %  %                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   %  &  M&  e&  )'  e'  p'  q'  '  '  '  '  *(  +(  (  4)  s)  )  *  *  +                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   +  +  ,  ,  ~,  ,  ,  ,  .-  -  -  -  -  -  -  j.  k.  .  .  .  .                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   .  /  /  .0  /0  00  :0  ;0  G0  0  J1  1  1  2  2  2  E3  3  G4  5  w5                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   w5  5  6  6  %6  g6  6  6   7  7  W7  7  68  78  F8  8  8  8  9  V9  9                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   9  9  :  
:  :  U:  :  :  R;  ;  ;  ;  <  P<  <  <  a=  b=  r=  =  >                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   >  >  %?  }?  ~?  ?  ?  (@  X@  @  6A  A  B  lB  mB  {B  B  AC  ]C  C  C                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   C  C  D  D  D  D  D  E  E  E  HF  F  G  aG  G  GH  SH  TH  fH  H  H                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   H  H  I  I  I  I  J  GJ  vJ  J  J  J  1K  2K  CK  XK  K  L  NL  L  L                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   L  GM  M  M  N  /N  HN  IN  WN  N  N  N  lO  O  MP  P  P  P  P  P  Q                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V                        Q  )Q  ?Q  XQ  kQ  Q  Q  Q  
R  XR  gR  hR  |R  R  R  R  S  3S  IS  gS  S                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   S  S  S  S  S  T  TT  T  T  U  U  !U  6U  nU  U  U  U  U  
V  =V  V                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   V  W  W  W  cW  W  W  W  W  2X  X  X  Y  YY  Y  Y  Z  Z  !Z  6Z  tZ                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   tZ  Z  [  2[  T[  u[  [  \  =\  |\  \  ]  !]  "]  8]  ]  ]  ^  Z^  ^  ^                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   ^  ^  ^  U_  _  _  _  _  `  4`  K`  k`  `  +a  a  a  a  b  ,b  Bb  jb                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   jb  b  b  b  c  c  "c  zc  c  c  !d  xd  d  d  d  d  d  d  d  d  e                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   e  Ke  e  e  e  e  @f  hf  if  f  f  f  f  g  7g  g  g  g  g  g  g                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   g  h  >h  ah  ~h  h  h  h  h  h  i  i  5i  Pi  zi  i  i  i  i  j  7j                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   7j  {j  j  k  (k  k  Jl  hl  zl  l  
m  m  vm  m  m  1n  in  jn  {n  n  n                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   n  Lo  Mo  [o  o  o  o  o  o  o  9p  p  p  p  3q  lq  q  q  q  q  r                                                                                                              z      s              V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V    V   r  r  er  r  r  r  7s  ds  es                                                                                                                                                                                                                                                                                                                                                                      V    V    V    V    V    V    V    V     es  :   es  `     vp      9     K        @  Normal     a
                   " A@ " Default Paragraph Font                                                                                              @                                                                                                                                                                                                                                                                                  
   	           F    Documento de Microsoft Word 6.0 
   MSWordDoc    Word.Document.6 9q                                                                                                                                                                                                                                                                                                                                                                                                                          